home *** CD-ROM | disk | FTP | other *** search
/ Mac Cube 4: Multimedia Applications / MacCube Volume 4: Multimedia Applications.iso / Let's Go! Graphics / Let's Go! Graphics / card_2892.txt < prev    next >
Text File  |  1995-11-01  |  1KB  |  56 lines
  1. -- card: 2892 from stack: in
  2. -- bmap block id: 4527
  3. -- flags: 0000
  4. -- background id: 2612
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openCard
  8.   go next card
  9. end openCard
  10.  
  11.  
  12.  
  13. -- part 1 (button)
  14. -- low flags: 00
  15. -- high flags: A000
  16. -- rect: left=198 top=56 right=104 bottom=292
  17. -- title width / last selected line: 0
  18. -- icon id / first selected line: 0 / 0
  19. -- text alignment: 1
  20. -- font id: 0
  21. -- text size: 12
  22. -- style flags: 0
  23. -- line height: 16
  24. -- part name: 
  25. ----- HyperTalk script -----
  26. on mouseUp
  27.   global AC_ON
  28.   if the short name of me is "Color Tools are ON" then
  29.     set the cursor to 4
  30.     lock screen
  31.     set the name of cd btn "Color Tools are ON" to "Color Tools are OFF"
  32.     set the icon of me to "AddColor OFF"
  33.     stop using stack "Color Tools"
  34.     put false into AC_ON
  35.     send "reset menuBar" to hypercard
  36.     reset menubar
  37.     unlock screen
  38.     exit mouseUp
  39.   end if
  40.   if the short name of me is "Color Tools are OFF" then
  41.     set the cursor to 4
  42.     lock screen
  43.     if (there is a stack "Color Tools") then
  44.       set the name of cd btn "Color Tools are OFF" to "Color Tools are ON"
  45.       set the icon of me to "AddColor ON"
  46.       start using stack "Color Tools" -- ‚àÜ
  47.       put true into AC_ON
  48.       send "AddColorInit" to stack "Color Tools" -- ‚àÜ
  49.       reset menubar
  50.     else
  51.       answer "Could not find stack ""e&"Color Tools""e&"."&return& "Please place the Color Tools and Home stacks in the same folder." with "OK"
  52.     end if
  53.     unlock screen
  54.   end if
  55. end mouseUp
  56.